home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1989 October / 64er_Magazin_89-10_1989_Markt__Technik_de_Side_A.d64 / kalender ii (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  966b  |  21 lines
  1. 1 clr:poke53280,7:poke53281,0:input"[147][158][205]onat";m:input"[202]ahr";j
  2. 2 n=int(365.25*(j+(m<3)))+int(30.6*(m+1-(m<3)*12))+1-2:n=n-int(n/7)*7:restore
  3. 3 dimm$(12),m(12):fori=1to12:readm$(i):nexti:fori=1to12:readm(i):nexti
  4. 4 rem--------hauptroutine-------
  5. 5 ifj/4=int(j/4)thens=1:ifm=2thenm(m)=m(m)+1
  6. 6 print"[147]   [167][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][165]"
  7. 7 fori=1to6:print"   [167]                               [165]"
  8. 8 print"   [167][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][165]"
  9. 9 next:print"   [167]                               [165]"
  10. 10 print"    [163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163] "
  11. 11 print"";m$(m);"[159]";j
  12. 12 print"[150][211]o[157][157][205]o[157][157][196]i[157][157][205]i[157][157][196]o[157][157][198]r[157][157][211]a":w=1
  13. 13 x=5+n*2
  14. 14 fori=1to7-n:poke211,10:poke214,x:sys58640:printw:w=w+1:x=x+2:nexti
  15. 15 forx=14to30step4:fory=5to17step2:poke211,x:poke214,y:sys58640
  16. 16 ifw<=m(m)thenprintw:w=w+1:nexty,x
  17. 17 fori=9to34:poke55296+i+5*40,10:nexti:poke198,0:wait198,1:getg$:ifg$=" "then1
  18. 18 data"[202]anuar","[198]ebruar","[155][205]aerz","[193]pril","[205]ai","[129][202]uni","[129][202]uli","[129][193]ugust"
  19. 19 data"[158][211]eptember","[158][207]ktober","[152][206]ovember","[196]ezember"
  20. 20 print"[147]":data31,28,31,30,31,30,31,31,30,31,30,31
  21.